SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
CREATE PROCEDURE [dbo].[SP_TMDOCU_PROV_I11]
/*---------------------------------------------------------*/                
/*---Empresa              : OFISIS S.A.                  --*/                
/*---Cliente              : CASSINELLI S.A.              --*/                
/*---Sistema              : Tesoreria                    --*/                
/*---M½dulo               : Empresa                      --*/                
/*---Programa             : Inserci¢n tmdocu_prov  --*/                
/*---Script               : ttproc_i.sql                 --*/                
/*---Nombre SP            : SP_TTPROC_INTE_I02           --*/                
/*---Desarrollado por     : E.G.T.                       --*/                
/*---Fecha Creaci½n       : 30/12/2011                   --*/                
/*---Base Datos           : Microsoft Sql Server         --*/                
/*---Versi½n              : 7.0                          --*/                
/*---Invoca a SP          :                              --*/                
/*---------------------------------------------------------*/                
/*---------------------------------------------------------*/                
/*---Comentarios                                         --*/                
/*---                                                    --*/                
/*---                                                    --*/                
/*---------------------------------------------------------*/                
                
/*---------------------------------------------------------*/                
/*---Drop Proc SP_TMDOCU_PROV_I02                        --*/                
/*---Grant all on SP_TMDOCU_PROV_I02 to public           --*/                 
/*---SP_TTPROC_INTE_I02 '01' , 1, 1, '03/01/1999',       --*/                
/*--- '03/31/1999', 'N', 1, 0, 0, NULL , NULL            --*/                
/*---------------------------------------------------------*/                
@ISCO_EMPR          TD_VC_002,                  
@ISCO_USUA_MODI     TD_VC_008_USUA,               
@ISCO_UNID_PRES     TD_VC_003, 
@ISCO_PROV          TD_VC_020,                 
@ISCO_TIPO_DOCU     TD_VC_003,                 
@ISNU_DOCU_PROV     TD_VC_020,                 
@ISCO_MONE          TD_VC_003,                
@ISCO_TIPO_OPER     TD_VC_003,
@IDFE_EMIS          TD_DT_001,                   
@ISCO_UNID_CNTB     TD_VC_003,                 
@IDFE_VENC          TD_DT_001,                
@INFA_TIPO_CAMB     TD_NU_009_004,                
@INIM_BRUT_AFEC     TD_NU_016_004,
@INIM_TOTA          TD_NU_016_004,                 
@ISDE_OBSE          TD_VC_100,                
@IDFE_PROG_PAGO     TD_DT_001,                
@IDFE_REGI_COMP     TD_DT_001,                 
@INFA_CAMB_EXTR     TD_NU_009_004,                
@IDFE_RECE          TD_DT_001,
@ISCO_BANC_PRES     TD_VC_003,
@ISNU_CNTA_PRES     TD_VC_020, 
@ISAA_BNCO_PRES     TD_VC_004, 
@ISMM_BNCO_PRES     TD_VC_002,
@ISTI_MOVI_PRES     TD_VC_001,
@ISNU_COMP_PRES     TD_VC_008
              
 As              
declare @VSTI_PROV      TD_VC_003,                
        @VSST_INTE_BACH TD_VC_001,                
        @VSNU_ASTO   TD_VC_010,              
              
  @VNPO_DETR  TD_NU_009_004              
              
                
BEGIN TRAN SP_TMDOCU_PROV_I02                
                
  Select @VSST_INTE_BACH = ST_INTE_BACH                
  From TMPARA_TESO Where CO_EMPR = @ISCO_EMPR              
                
                
  SELECT @VSTI_PROV = T1.TI_CLIE                
  FROM TMAUXI_EMPR T1, TMPARA_TESO T2                
  WHERE T1.CO_EMPR = @ISCO_EMPR                
  AND T1.CO_EMPR = T2.CO_EMPR                
  AND T1.TI_AUXI_EMPR = T2.CO_TIAU_PROV                
  AND T1.CO_AUXI_EMPR = @ISCO_PROV                
              
              
                
  /*Busco el ultimo correlativo usado para insertar el nro de comprobante*/         
  /*        
  If @VSST_INTE_BACH = 'N' AND @ISST_ASTO_RESU = 'N'     -- SI ES INTERFASE EN LINEA Y ES DETALLADA                
  Exec SP_TTULTI_ASTO_Q01 @ISCO_EMPR, @ISCO_USUA_MODI, @ISCO_UNID_CNTB, @ISCO_TIPO_OPER, @IDFE_REGI_COMP,  
    @VSNU_ASTO OUTPUT                
  */  
           
  Insert into TMDOCU_PROV(                
 CO_EMPR, CO_PROV, CO_TIPO_DOCU, NU_DOCU_PROV, FE_EMIS, CO_TIPO_OPER, CO_COND_PAGO, CO_UNID_CONC, FE_VENC, 
 FA_TIPO_CAMB, CO_MONE, IM_BRUT_AFEC, FE_RECE, FE_PROG_PAGO, FA_CAMB_EXTR, FE_REGI_COMP, IM_GAFI, IM_MORA, IM_FLET, 
 PC_DCT1, IM_DCT1, PC_DCT2, IM_DCT2, PC_IMP1, IM_IMP1, PC_IMP2, CO_IMP1, IM_IMP2, PC_IMP3, CO_IMP2, IM_IMP3, IM_TOTA, 
 IM_PAGA, CO_IMP3, ST_CONT, DE_OBSE, CO_ESTA_DOCU, NU_PROC, CO_BANC_PRES, CO_UNID_PRES, NU_CNTA_PRES, AA_BNCO_PRES,
 MM_BNCO_PRES, TI_MOVI_PRES, NU_COMP_PRES, CO_USUA_CREA, FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI)
                
  Values  (  
  @ISCO_EMPR, @ISCO_PROV, @ISCO_TIPO_DOCU, @ISNU_DOCU_PROV, @IDFE_EMIS, @ISCO_TIPO_OPER, 'C01', @ISCO_UNID_CNTB, @IDFE_VENC, 
  @INFA_TIPO_CAMB, @ISCO_MONE, @INIM_BRUT_AFEC, @IDFE_RECE, @IDFE_PROG_PAGO, @INFA_CAMB_EXTR, @IDFE_REGI_COMP, 0, 0, 0,
  0, 0, 0, 0, 0, 0, 0, NULL, 0, 0, NULL, 0, @INIM_TOTA, 
  0, NULL, 'N', @ISDE_OBSE, 'ACT', 0, @ISCO_BANC_PRES, @ISCO_UNID_PRES, @ISNU_CNTA_PRES, @ISAA_BNCO_PRES, @ISMM_BNCO_PRES,
  @ISTI_MOVI_PRES, @ISNU_COMP_PRES, @ISCO_USUA_MODI, GETDATE(), @ISCO_USUA_MODI, GETDATE())                
  IF (@@ERROR != 0)                
    BEGIN                
      RAISERROR 20001 'ERROR DE INSERCION'                
      ROLLBACK TRAN                
      RETURN                
    END                         
COMMIT TRAN SP_TMDOCU_PROV_I02                
                
/*--------------------------- Fin -------------------------------- */

GO
